home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT AutoLogin Settings.xpl < prev    next >
Text File  |  2003-06-04  |  2KB  |  63 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="3"
  4. "UIPATH 1"="Network\Auto Login\Windows NT/2K/XP"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\29) Auto Login"
  6. "NAME"="Settings"
  7. "VERSION"="1.60"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="0101011"
  10. "TEXT 1"="User Name"
  11. "TEXT 2"="Password"
  12. "TEXT 3"="Domain"
  13. "DESCRIPTION 1"="Auto login can be used to bypass the "Press Ctrl+Alt+Del to login" nagging screen at bootup."
  14. "DESCRIPTION 2"="Type your user information in these boxes. The "Domain" value is needed ONLY IF you are connected to a (network) domain, else leave it blank."
  15. "DESCRIPTION 3"="Apply your changes when finished, but make sure BOTH "Enable auto login" AND "Enable auto login count" settings are ENABLED by using the "General" plug-in above, to properly activate auto login."
  16. "DESCRIPTION 4"="See this web page for more details: http://members.aol.com/axcel216/2k1.htm#BAIW"
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com/"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Modified by AXCEL216 [axcel216@aol.com] on 4-11-2002."
  21. "COMMENT 2"="Thanks to Tony Jaeger [tony_jaeger@msn.com] for the Startup/Shutdown folder idea!"
  22.  
  23. sRP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  24. Sub Plugin_Initialize
  25.  if RegPathExists(sRP) then
  26.   s=RegReadValue(sRP&"DefaultUserName")
  27.   SetUIElement 1,s
  28.  
  29.   s=RegReadValue(sRP&"DefaultPassword")
  30.   SetUIElement 2,s
  31.  
  32.   s=RegReadValue(sRP&"DefaultDomainName")
  33.   SetUIElement 3,s
  34.  else
  35.   Disable
  36.  end if
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  s=GetUIElement(1)
  44.  Call RegWriteValue(sRP&"DefaultUserName",s,1)
  45.  
  46.  s=GetUIElement(2)
  47.  Call RegWriteValue(sRP&"DefaultPassword",s,1)
  48.  
  49.  s=GetUIElement(3)
  50.  If Len(s)>0 then
  51.   Call RegWriteValue(sRP&"DefaultDomainName",s,1)
  52.  else
  53.   s=RegReadValue(sRP&"DefaultDomainName")
  54.  
  55.   if IsNull(s)=false and Len(s)>0 then
  56.      Call RegDeleteValue(sRP&"DefaultDomainName")
  57.   end if
  58.  end if
  59.  
  60. Logoff
  61. End Sub
  62. Sub Plugin_Terminate
  63. End Sub